100 'dg}[N|S\
110 '
120 SCREEN 0
130 '_f[^ݒ
140 SETVERTEX ,8+8+32*2:'80̒_ݒ肷
150 RESTORE 1000:FOR I=0 TO 7:READ X,Y:SETVERTEX (X,Y,0):NEXT:'d̒_ݒ
160 RESTORE 1000:FOR I=0 TO 7:READ X,Y:SETVERTEX (-X,-Y,Z):NEXT:'p̒_ݒ
170 FOR I=0 TO 31:T=I*2*3.14/32:SETVERTEX (COS(T)*47,-SIN(T)*47,0):SETVERTEX (COS(T)*49,-SIN(T)*49,0):NEXT:'~̒_ݒ
180 '|S̐ݒ
190 SETPOLYGON ,3+3+32,0:'38ʂ̃|Sݒ肷
200 RESTORE 1100:FOR I=0 TO 2:READ T1,T2,T3,T4:SETPOLYGON,(T1,T2,T3,T4):NEXT:'d̃|Sݒ
210 RESTORE 1100:FOR I=0 TO 2:READ T1,T2,T3,T4:SETPOLYGON ,(T1+8,T2+8,T3+8,T4+8):NEXT:'p̃|Sݒ
220 FOR I=0 TO 30:SETPOLYGON,(16+I*2,16+I*2+1,16+I*2+3,16+I*2+2):NEXT :SETPOLYGON,(16+31*2,16+31*2+1,17,16):'~̃|Sݒ
280 'Agr[g̐ݒ
290 SETATR,3+3+32:'38ʂ̃Agr[gݒ
300 FOR I=0 TO 2:SETATR (4,1,2,0,RGB(31,0,10),72):NEXT:'d̕Ԃݒ
310 FOR I=0 TO 2+32:SETATR (4,1,2,0,RGB(10,10,31),72):NEXT:'pщ~ݒ
315 'IuWFNgɊ蓖Ă
320 OBJTYPE 1,4
330 OBJATR 1,0,0
340 OBJTURN 1,,.02
350 OBJ(1,@ZV)=-1
1000 '_f[^
1010 DATA -3,30
1020 DATA -33,0
1030 DATA -12,-21
1040 DATA -12,-42
1050 DATA -3,-33
1060 DATA -12,9
1070 DATA -24,0
1080 DATA -12,-12
1100 'ʃf[^
1110 DATA 0,1,6,5
1120 DATA 1,2,7,6
1130 DATA 3,4,0,5
